home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 098 / eds.arc / EDSBOXO.LSP < prev    next >
Encoding:
Text File  |  1987-02-24  |  981 b   |  29 lines
  1. ;This function draws a rectangle given
  2. ;the x,y dimensions and offset from a
  3. ;selected point.
  4. ;
  5. ;
  6. ;Function name "EDSBOXO.LSP" - Execution command "BOXO"
  7. ;
  8. ;Written by Christopher Conrad and Steve Brown
  9. ;
  10. ;
  11. ;
  12. (defun C:BOXO (/ PNT1 PNT2 PNT3 PNT4 ORIGIN OFFSET)
  13.     (GRAPHSCR)
  14.     (TERPRI)
  15.     (COMMAND "OSNAP" "INT")
  16.     (SETQ ORIGIN (GETPOINT "INDICATE ORIGIN OF OFFSET : "))
  17.     (COMMAND "OSNAP" "OFF")
  18.     (SETQ ORX (CAR ORIGIN)) (SETQ ORY (CADR ORIGIN))
  19.     (SETQ OFFSET (GETPOINT "KEY-IN OFFSETS FOR START POINT : "))
  20.     (SETQ OFFX (CAR OFFSET)) (SETQ OFFY (CADR OFFSET))
  21.     (SETQ PNT1X (+ ORX OFFX)) (SETQ PNT1Y (+ ORY OFFY))
  22.     (SETQ PNT1 (LIST PNT1X PNT1Y)) (TERPRI)
  23.     (SETQ PNT3 (GETPOINT "KEY-IN OFFSETS : ")) (TERPRI)
  24.     (SETQ PNT2 (LIST (+ (CAR PNT1) (CAR PNT3)) (CADR PNT1)))
  25.     (SETQ PNT4 (LIST (CAR PNT1) (+ (CADR PNT1) (CADR PNT3))))
  26.     (SETQ PNT3 (LIST (CAR PNT2) (CADR PNT4)))
  27.     (COMMAND "LINE" PNT1 PNT2 PNT3 PNT4 "C")
  28.  
  29.   )